随机产生10个[10，100]之间的数存放在数组中，求数组中最大元素和最小元素!VB的程序设计会的万分感谢！

Private Sub Form_activate()
Dim a(1 To 10) As Double
Dim i As Integer
Dim max As Double
Dim min As Double
For i = 1 To 10
a(i) = Int((100 - 10 + 1) * Rnd + 10)
Next
max = a(1)
For i = 2 To 10
If max < a(i) Then max = a(i)
Next
min = a(1)
For i = 2 To 10
If min > a(i) Then min = a(i)
Next
Print "max"; max
Print "min"; min
End Sub

这个问题你是不是觉得太简单了，连分都不给。